CD BIT 75/CD BIT 75.iso/Software/LogOut/disk1/_SETUP.1/GCondom7.exe/0/RCDATA/TFRMESCEMPREGADO/TFRMESCEMPREGADO.txt

Text File | 2004-10-21 | 13KB | 593 lines

object frmEscEmpregado: TfrmEscEmpregado
  Left = 243
  Top = 154
  BorderStyle = bsNone
  Caption = 'Escolher Contacto'
  ClientHeight = 342
  ClientWidth = 582
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 582
    Height = 342
    Align = alClient
  end
  object Label1: TLabel
    Left = 8
    Top = 40
    Width = 86
    Height = 13
    Caption = 'Escolha um  ...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label61: TLabel
    Left = 8
    Top = 16
    Width = 65
    Height = 13
    Caption = 'Ordenada por'
    Transparent = True
  end
  object Label62: TLabel
    Left = 184
    Top = 16
    Width = 58
    Height = 13
    Caption = 'Procurar por'
    Transparent = True
  end
  object Label2: TLabel
    Left = 16
    Top = 301
    Width = 315
    Height = 22
    Caption = 'Lista de Funcion�rios / Fornecedores'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object RxSpeedButton1: TRxSpeedButton
    Left = 457
    Top = 275
    Width = 105
    Height = 25
    Hint = 'Ver Conta Corrente'
    MenuPosition = dmpRight
    Caption = 'Ver Conta Corrente'
    Flat = True
    Transparent = True
    OnClick = RxSpeedButton1Click
  end
  object DBGrid1: TDBGrid
    Left = 10
    Top = 56
    Width = 560
    Height = 200
    Color = 14413786
    Ctl3D = False
    DataSource = DataSource1
    FixedColor = 13551795
    Options = [dgTitles, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'C�digo'
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Descritivo'
        Title.Caption = 'Nome'
        Width = 250
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Contribuinte'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Empregado'
        Title.Caption = 'Funcion�rio'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Fornecedor'
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 408
    Top = 305
    Width = 75
    Height = 25
    TabOrder = 1
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 488
    Top = 305
    Width = 75
    Height = 25
    Caption = 'Cancelar'
    TabOrder = 2
    Kind = bkCancel
  end
  object ComboBox4: TComboBox
    Left = 80
    Top = 16
    Width = 81
    Height = 21
    Hint = 'Muda a ordena��o da lista'
    Style = csDropDownList
    Color = clInfoBk
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnChange = ComboBox4Change
    Items.Strings = (
      'C�digo'
      'Nome'
      'Empregado'
      'Fornecedor')
  end
  object Edit4: TEdit
    Left = 248
    Top = 16
    Width = 300
    Height = 21
    Hint = 'Texto a procurar, dependendo da ordena��o'
    Color = clInfoBk
    Ctl3D = True
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnChange = Edit4Change
  end
  object TabSet1: TTabSet
    Left = 12
    Top = 255
    Width = 556
    Height = 20
    BackgroundColor = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    SelectedColor = 14413786
    Tabs.Strings = (
      'do Condom�nio'
      'Geral')
    TabIndex = 0
    OnChange = TabSet1Change
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 432
    Top = 40
  end
  object Table1: TTable
    DatabaseName = 'Database1'
    Filtered = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'C�digo'
        Attributes = [faRequired]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Descritivo'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Endere�o'
        DataType = ftMemo
        Size = 240
      end
      item
        Name = 'Cp'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Cp1'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Telefone'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Fax'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Email'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Seguran�a Social'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Contribuinte'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Tipo Rendimento'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Empregado'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Obs.'
        DataType = ftMemo
        Size = 240
      end
      item
        Name = 'Tlm'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Seguradora'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Morada Seguradora'
        DataType = ftMemo
        Size = 240
      end
      item
        Name = 'Cp Seguradora'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Cp1 Seguradora'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Telefone Seguradora'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Fax Seguradora'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Email Seguradora'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Ap�lice'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'In�cio'
        DataType = ftDate
      end
      item
        Name = 'Fim'
        DataType = ftDate
      end
      item
        Name = 'Pr�mio1'
        DataType = ftFloat
      end
      item
        Name = 'Pr�mio2'
        DataType = ftFloat
      end
      item
        Name = 'Valor Seguro1'
        DataType = ftFloat
      end
      item
        Name = 'Valor Seguro2'
        DataType = ftFloat
      end
      item
        Name = 'Foto'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'Sal�rio'
        DataType = ftFloat
      end
      item
        Name = 'NIB'
        DataType = ftString
        Size = 23
      end
      item
        Name = 'Ocorr�ncias'
        DataType = ftMemo
        Size = 240
      end
      item
        Name = 'Previs�o Aumento'
        DataType = ftFloat
      end
      item
        Name = 'Tipo Pagamento'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Modo Pagamento'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Fornecedor'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Stretch'
        DataType = ftBoolean
      end
      item
        Name = 'Sal�rio2'
        DataType = ftFloat
      end
      item
        Name = 'Http'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Saldo'
        DataType = ftFloat
      end>
    StoreDefs = True
    TableName = 'Contactos.db'
    Left = 464
    Top = 40
    object Table1ID: TIntegerField
      FieldName = 'ID'
    end
    object Table1Cdigo: TStringField
      FieldName = 'C�digo'
      Required = True
    end
    object Table1Descritivo: TStringField
      FieldName = 'Descritivo'
      Size = 50
    end
    object Table1Endereo: TMemoField
      FieldName = 'Endere�o'
      BlobType = ftMemo
      Size = 240
    end
    object Table1Cp: TStringField
      FieldName = 'Cp'
      Size = 10
    end
    object Table1Cp1: TStringField
      FieldName = 'Cp1'
      Size = 25
    end
    object Table1Telefone: TStringField
      FieldName = 'Telefone'
      Size = 25
    end
    object Table1Fax: TStringField
      FieldName = 'Fax'
      Size = 25
    end
    object Table1Email: TStringField
      FieldName = 'Email'
      Size = 30
    end
    object Table1SeguranaSocial: TStringField
      FieldName = 'Seguran�a Social'
      Size = 15
    end
    object Table1Contribuinte: TStringField
      FieldName = 'Contribuinte'
      Size = 10
    end
    object Table1TipoRendimento: TStringField
      FieldName = 'Tipo Rendimento'
      Size = 3
    end
    object Table1Empregado: TStringField
      FieldName = 'Empregado'
      Size = 3
    end
    object Table1Obs: TMemoField
      FieldName = 'Obs.'
      BlobType = ftMemo
      Size = 240
    end
    object Table1Tlm: TStringField
      FieldName = 'Tlm'
      Size = 25
    end
    object Table1Seguradora: TStringField
      FieldName = 'Seguradora'
      Size = 30
    end
    object Table1MoradaSeguradora: TMemoField
      FieldName = 'Morada Seguradora'
      BlobType = ftMemo
      Size = 240
    end
    object Table1CpSeguradora: TStringField
      FieldName = 'Cp Seguradora'
      Size = 10
    end
    object Table1Cp1Seguradora: TStringField
      FieldName = 'Cp1 Seguradora'
      Size = 25
    end
    object Table1TelefoneSeguradora: TStringField
      FieldName = 'Telefone Seguradora'
      Size = 25
    end
    object Table1FaxSeguradora: TStringField
      FieldName = 'Fax Seguradora'
      Size = 25
    end
    object Table1EmailSeguradora: TStringField
      FieldName = 'Email Seguradora'
      Size = 30
    end
    object Table1Aplice: TStringField
      FieldName = 'Ap�lice'
    end
    object Table1Incio: TDateField
      FieldName = 'In�cio'
    end
    object Table1Fim: TDateField
      FieldName = 'Fim'
    end
    object Table1Prmio1: TFloatField
      FieldName = 'Pr�mio1'
    end
    object Table1Prmio2: TFloatField
      FieldName = 'Pr�mio2'
    end
    object Table1ValorSeguro1: TFloatField
      FieldName = 'Valor Seguro1'
    end
    object Table1ValorSeguro2: TFloatField
      FieldName = 'Valor Seguro2'
    end
    object Table1Foto: TStringField
      FieldName = 'Foto'
      Size = 255
    end
    object Table1Salrio: TFloatField
      FieldName = 'Sal�rio'
    end
    object Table1NIB: TStringField
      FieldName = 'NIB'
      Size = 23
    end
    object Table1Ocorrncias: TMemoField
      FieldName = 'Ocorr�ncias'
      BlobType = ftMemo
      Size = 240
    end
    object Table1PrevisoAumento: TFloatField
      FieldName = 'Previs�o Aumento'
    end
    object Table1TipoPagamento: TStringField
      FieldName = 'Tipo Pagamento'
      Size = 15
    end
    object Table1ModoPagamento: TStringField
      FieldName = 'Modo Pagamento'
      Size = 15
    end
    object Table1Fornecedor: TStringField
      FieldName = 'Fornecedor'
      Size = 3
    end
    object Table1Stretch: TBooleanField
      FieldName = 'Stretch'
    end
    object Table1Salrio2: TFloatField
      FieldName = 'Sal�rio2'
    end
    object Table1Http: TStringField
      FieldName = 'Http'
      Size = 40
    end
    object Table1Saldo: TFloatField
      FieldName = 'Saldo'
    end
  end
  object Table2: TTable
    Filtered = True
    Left = 496
    Top = 40
    object Table2ID: TIntegerField
      FieldName = 'ID'
    end
    object Table2Cdigo: TStringField
      FieldName = 'C�digo'
      Required = True
    end
    object Table2Descritivo: TStringField
      FieldName = 'Descritivo'
      Size = 50
    end
    object Table2Contribuinte: TStringField
      FieldName = 'Contribuinte'
      Size = 10
    end
    object Table2Empregado: TStringField
      FieldName = 'Empregado'
      Size = 3
    end
    object Table2Fornecedor: TStringField
      FieldName = 'Fornecedor'
      Size = 3
    end
  end
end